home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / misc / test < prev    next >
Encoding:
Text File  |  1994-02-08  |  27.4 KB  |  647 lines  |  [TEXT/R*ch]
  1. (game-module "???"
  2.   (blurb "Standard period that gets compiled in")
  3.   )
  4.  
  5. ;Period 0
  6.  
  7. (game-module (title "WW II ca 1945"))
  8.  
  9. ;"standard" font-name
  10.  
  11. (unit-type i (name "infantry") (char "i")
  12.   (help "marches around and captures things"))
  13. (unit-type a (name "armor") (char "a")
  14.   (help "faster than infantry, limited to open terrain"))
  15. (unit-type f (name "fighter") (char "f")
  16.   (help "interceptor to get those nasty bombers"))
  17. (unit-type b (name "bomber") (char "b")
  18.   (help "long range aircraft, carries infantry and bombs"))
  19. (unit-type d (name "destroyer") (char "d")
  20.   (help "fast, cheap, and sinks subs"))
  21. (unit-type s (name "submarine") (char "s")
  22.   (help "sneaks around and sinks ships"))
  23. (unit-type t (name "troop transport") (char "t")
  24.   (help "carries infantry and armor across the pond"))
  25. (unit-type C (name "carrier") (char "C")
  26.   (help "carries fighters and bombers around"))
  27. (unit-type B (name "battleship") (char "B")
  28.   (help "the most powerful ship"))
  29. (unit-type N (name "atomic bomb") (char "N")
  30.   (help "leveler of cities (and anything else)"))
  31. (unit-type / (name "base") (char "/")
  32.   (help "airstrip plus port"))
  33. (unit-type * (name "town") (char "*")
  34.   (help "smaller than a city"))
  35. (unit-type @ (name "city") (char "@")
  36.   (help "capital of a side"))
  37.  
  38. (material-type |fuel| (help "basic motive power"))
  39. (material-type |ammo| (help "generic hitting capability"))
  40.  
  41. (terrain-type |sea| (char ".") (color "sky blue"))
  42. (terrain-type |shallows| (char ",") (color "cyan"))
  43. (terrain-type |swamp| (char "=") (color "yellowgreen"))
  44. (terrain-type |desert| (char "~") (color "yellow"))
  45. (terrain-type |plains| (char "+") (color "green"))
  46. (terrain-type |forest| (char "%") (color "forest green"))
  47. (terrain-type |mountains| (char "^") (color "sienna"))
  48. (terrain-type |ice| (char "_") (color "white"))
  49. (terrain-type |vacuum| (char ":") (color "black"))
  50.  
  51. ;true (vacuum) dark
  52.  
  53. ;t* t* nuked  ; most terrain won't actually change
  54. ;desert (plains forest) nuked
  55. ;mountains ice nuked
  56.  
  57. (add t* alt-percentile-min (  0  68  69  70  70  70  93  99  0))
  58. (add t* alt-percentile-max ( 68  69  71  93  93  93  99 100  0))
  59. (add t* wet-percentile-min (  0   0  50   0  20  80   0   0  0))
  60. (add t* wet-percentile-max (100 100 100  20  80 100 100 100  0))
  61.  
  62. (set edge-terrain ice)
  63.  
  64. (define cities (/ * @))
  65. (define makers (* @))
  66. (define ground (i a))
  67. (define aircraft (f b))
  68. (define ship (d s t C B))
  69. (define movers (i a f b d s t C B N))
  70. (define water (sea shallows))
  71. (define land (plains forest desert mountains))
  72.  
  73. ;true cities named
  74. ;true (C B N) named
  75. (add (/ * @) point-value (1 5 25))
  76.  
  77. (add @ start-with 1)
  78. (add * start-with 5)
  79. ;100 * density
  80. ;@ first-unit
  81. ;i first-product
  82. (table favored-terrain add (* land 20))
  83. (table favored-terrain add (* plains 40))
  84. (table favored-terrain add (@ plains 100))
  85. (set country-separation-min 16)
  86. (set country-separation-max 48)
  87.  
  88. ;; no disasters
  89.  
  90. ;(4 7 8 16 10 16 12 30 40 20) movers @ make
  91. ;(4 7 8 16 10 16 12 30 40 20) movers * make
  92. ;(3 5) / ground make
  93. ;true (* @) maker
  94. ;20 u* startup
  95. ;300 N research   ; that's 3x basic time
  96. ;; no special resources to make
  97. ;1 u* (* @) repair
  98. ;3 u* / repair
  99. ;10 (C B) (C B) repair
  100. ;10 (* @) i repair
  101. ;1 / i repair
  102. ;; infantry should maybe repair cities?
  103.  
  104. (table base-production add (ground fuel 1))
  105. ;2 fuel a produce ; this is less realistic, but problems otherwise
  106. (table base-production add (cities fuel (10 20 50)))
  107. (table base-production add (cities ammo ( 5 10 20)))
  108. ;100 (plains forest) i productivity
  109. ;100 plains a productivity   ; in this case "plains" = "gas stations"
  110. ;(100 50 20 20) land / productivity ; one arg must be a scalar...
  111. (table productivity add (* land (100 50 20 20)))
  112. (table productivity add (@ land (100 50 20 20)))
  113. ;100 water (* @) productivity ; 1987.map has some cities in water.
  114.  
  115. (table storage-x add (u* fuel (6 10 18 36 100 100 200 400 200 1 200 500 900)))
  116. (table storage-x add (u* ammo (6  4  3  3  20  10  20  40  40 1 100 200 400)))
  117. (table base-consumption add (i fuel 1))
  118. ;; 1 fuel ship consume
  119. ;3 fuel f consume   ; this causes problems for carriers
  120. (table base-consumption add (b fuel 2))
  121. ;0 (f b) consume-as-occupant
  122.  
  123. ;-1 r* (i f N) out-length
  124.  
  125. ;(1 2 9 6 3 3 2 4 4 1) movers speed
  126.  
  127. ;0 land i moves
  128. ;0 (plains desert) a moves
  129. ;0 t* aircraft moves
  130. ;0 water ship moves
  131. ;2 shallows (C B) moves
  132. ;0 t* N moves  ; team of scientists can take bomb anywhere
  133. ;0 land cities moves  ; looks strange, but needed to define allowable places
  134.  
  135. (table consumption-per-move add (movers fuel 1))
  136. ;0 fuel (N) to-move   ; infantry doesn't need extra to move, but cause other problems
  137.  
  138. ;1 (i N) b capacity
  139.  
  140. ;1 u* volume
  141. ;1 ground volume
  142. ;4 (d s) volume
  143. ;6 (t C B) volume
  144. ;2 b volume
  145. ;6 ground t capacity
  146. (add b capacity 1)
  147. (add t capacity 6)
  148. (add C capacity 10)
  149. (add / capacity 20)
  150. (add * capacity 40)
  151. (add @ capacity 80)
  152. ;;1 ship t capacity
  153. (table mp-per-occupant add (t ship 50))
  154. ;(6 2) (f b) C capacity
  155. ;2 u* / capacity
  156. ;4 (f b) / capacity
  157. ;10 u* * capacity
  158. ;20 u* @ capacity
  159. ;0 cities cities capacity
  160. ;9 u* f enter-time  ; aircraft can't sortie again until next turn
  161. ;6 u* b enter-time
  162. ;0 u* ship enter-time
  163. ;0 cities a enter-time  ; travel quickly on roads.
  164.  
  165. ;10 s visibility
  166. ;10 N visibility
  167. ;true (* @) always-seen
  168. (add @ vision-range 3)
  169.  
  170. (add u* hp-max (1 1 1 2 3 2 3 4 8 1 10 20 40))
  171. ;(0 0 0 1 1 1 2 2 4 0  5 10 20) u* crippled  ; 50% of hp usually
  172.  
  173. (table hit-chance add (i u* ( 50  40  20  15  20  20  30  20   9  40  80  60  40)))
  174. (table hit-chance add (a u* ( 60  50  30  30  30  20  30  20  20  50  90  70  50)))
  175. (table hit-chance add (f u* ( 15  25  60  70  20  30  20  50  40  80 100 100 100)))
  176. (table hit-chance add (b u* ( 20  20  10   9  30  50  50  70  60  50  90  95  99)))
  177. (table hit-chance add (d u* (  5   5  10   5  60  70  60  40  20   0  99  90  80)))
  178. (table hit-chance add (s u* (  0   0  10   5  40  10  60  40  50   0   0   0   0)))
  179. (table hit-chance add (t u* ( 20   5  10   5  40  40  40  30   9   0   0   0   0)))
  180. (table hit-chance add (C u* ( 30  20  40  10  30  30  40  20  20   0   0   0   0)))
  181. (table hit-chance add (B u* ( 50  50  50  20  70  50  90  50  90   0 100 100 100)))
  182. (table hit-chance add (N u* (200 200 200 200 200 200 200 200 200   0 200 200 200)))
  183. (table hit-chance add (/ u* ( 10  10  20  20  20  20  30  20  20   0   0   0   0)))
  184. (table hit-chance add (* u* ( 30  20  50  40  40   0  30  20  20   0   0   0   0)))
  185. (table hit-chance add (@ u* ( 50  40  70  60  50   0  30  20  50   0   0   0   0)))
  186.  
  187. (table damage add (u* u* 1))
  188. (table damage add (a cities 2))
  189. (table damage add (b ship 2))
  190. ;2 (/ *) b damage
  191. (table damage add (b s 1))
  192. (table damage add (b @ 3))
  193. (table damage add (d s 2))
  194. (table damage add (s ship 3))
  195. (table damage add (s B 4))
  196. (table damage add (B u* 2))
  197. ;(3 4) (* @) B damage
  198. (table damage add (N u* 60))
  199.  
  200. ;-50 neutrality
  201.  
  202. ;false N can-counter
  203.  
  204. ;true N self-destruct
  205.  
  206. (table capture-chance add (i cities (70 50 30)))
  207. (table capture-chance add (a cities (90 70 50)))
  208. ;true i cities bridge  ; infantry can capture cities even on water.
  209.  
  210. ;50 movers cities protect  ; cities offer some protection to occupants
  211. ;10 cities a protect        ; armor protect the cities housing them.
  212. ;              ; can't make this too large or city can be
  213. ;              ; invulnerable.
  214. ;5 cities i protect      ; same for infantry.
  215. ;25 / a protect
  216. ;15 / i protect
  217.  
  218. ;true u* changes-side  ; equipment is indifferent to its fate
  219. ;false i changes-side  ; but armies have some loyalty
  220. (add u* can-be-independent true)
  221. (add i can-be-independent false)
  222.  
  223. (table hits-with add (u* ammo 1))
  224. (table hit-by add (u* ammo 1))
  225.  
  226. ;"defeats" ground destroy-message
  227. ;"sinks" ship destroy-message
  228. ;"shoots down" (f b) destroy-message
  229. ;"flattens" cities destroy-message
  230.  
  231. ;true movers can-disband
  232. ;true / can-disband
  233.  
  234. ;; help for machine strategy
  235. ;(200 150 100 100  10   8  40 1 10 0  50 500 500) u* attack-worth
  236. ;(200  80 200 130  20  15   0 0 10 0  50 500 500) u* defense-worth
  237. ;(200  50 100 100  20   0  40 0 10 0 100 500 500) u* explore-worth
  238. ;(  1  4   0   0  100 200 100 2000 400 0) movers min-region-size
  239.  
  240. ;begin{notes}
  241. ;This period is the default built-in set of period parameters.  It
  242. ;represents units of about 1945, from infantry to atomic bombs.  This is
  243. ;the most familiar, which makes it easier to play, but also more controversial,
  244. ;since historians have many conflicting theories about which kinds of
  245. ;units were most effective.
  246.  
  247. ;Infantry.  The infantry division is the slowest of units, but it can go almost
  248. ;anywhere.  It is also quick to produce.  Infantry is the staple of
  249. ;campaigns - a little boring perhaps, but essential to success.
  250.  
  251. ;Armor.  The armor division is highly mobile and hits hard.  Unfortunately,
  252. ;it is limited to operating in open terrain - plains and desert.  It also
  253. ;takes longer to produce.  Armor can last twice as long in the 
  254. ;desert as infantry.  Both armor and infantry can
  255. ;assault and capture cities; they are the only units that can do so.
  256.  
  257. ;Fighters.  A fighter is a squadron or wing of high-speed armed aircraft.
  258. ;Their fuel supply can be gotten only at units, towns, and bases, so they
  259. ;must continually be taking off and landing.  Fighters are not too effective
  260. ;against ground units or ships, but they eat bombers for lunch.  Fighters
  261. ;are very good for reconnaisance - important in a game where you can't always
  262. ;see the enemy moving!
  263.  
  264. ;Bomber groups.  Bombers are very powerful, since they can seriously damage
  265. ;or even flatten cities.  The loss rate in such activities is high, so they're
  266. ;not a shortcut to victory!
  267.  
  268. ;Destroyers.  Destroyers are fast small ships for both exploration and
  269. ;anti-submarine activities.
  270.  
  271. ;Submarines.  The favorite food of submarines is of course merchant shipping
  272. ;and troopships, and they can sink troop transports with one blow.
  273. ;Subs are also invisible, but they are vulnerable to destroyers and aircraft.
  274.  
  275. ;Troop transports.  This is how ground units get across the sea.  They can
  276. ;defend themselves against ships and aircraft, but are basically vulnerable.
  277. ;They're not very fast either.
  278.  
  279. ;Aircraft carriers.  Compensates for the fighter's limited range by providing
  280. ;a portable airport.  Carriers themselves are sitting ducks, particularly
  281. ;with respect to aircraft.  Fighter patrols are mandatory.
  282.  
  283. ;Battleships.  The aptly named "Dread Naught" has little to fear from other
  284. ;units of this period.  Subs may sink them with enough effort, and a group
  285. ;of bombers and fighters are also deadly, but with eight hit points to start,
  286. ;a battleship can usually survive long enough to escape.  Battleships are very
  287. ;effective against cities and armies, at least the ones on the coast.
  288.  
  289. ;Atomic bombs.  The Final Solution; but they are not easy to use.  A bomb
  290. ;takes a long time to produce, moves very slowly by itself, and is easily
  291. ;destroyed by other units.  The plus side is instant destruction for any unit
  292. ;of any size!  Bombs are imagined to be transported by a team of scientists,
  293. ;and can go on any sort of terrain without running out of supplies.
  294.  
  295. ;Bases.  To simplify matters, this can serve as a camp, airbase, and port.
  296. ;Bases cannot build units, although they can repair some damage.
  297.  
  298. ;Towns.  Towns are the staple of territory.  They can build, repair, produce
  299. ;fuel and ammo, and serve as a safe haven for quite a few units.
  300.  
  301. ;Cities.  Cities are very large, powerful, and well defended.  They are
  302. ;basically capital cities, or something in a comparable range.  (New York
  303. ;and San Francisco are cities, Salt Lake City and San Antonio are towns.)
  304. ;A city is worth five towns, territory-wise.
  305.  
  306. ;Current thinking about optimal strategy for this period differs.  In general,
  307. ;blitzkrieg works, and can win the game in a hurry.  The problem is to
  308. ;muster enough force before striking.  One full troop transport is not
  309. ;enough; the invasion will melt away like ice cream on a hot sidewalk, unless
  310. ;reinforcements (either air or land) show up quickly.  Air cover is very
  311. ;important.  While building up an invasion force, airborne assaults using
  312. ;bombers and infantry can provide useful diversions, although it can be
  313. ;wasteful of bombers.  Human vs human games on the default map generally
  314. ;last about 100 turns, usually not enough time or units to build atomic
  315. ;bombs or battleships, and not a big enough map to really need carriers
  316. ;(although bases for staging are quite useful.)
  317. ;end{notes}
  318.  
  319. ;clear-side-names
  320.  
  321. ;; The more significant countries of the modern world
  322.  
  323. ;"American" sname "Canadian" sname "Mexican" sname "Guatemalan" sname
  324. ;"Honduran" sname "Sandinista" sname "Costa Rican" sname "Panamanian" sname
  325. ;"Colombian" sname "Ecuadorean" sname  "Peruvian" sname "Chilean" sname
  326. ;"Argentinian" sname "Uruguayan" sname "Paraguayan" sname "Brazilian" sname
  327. ;"Bolivian" sname "Guyanan" sname "Venezuelan" sname "Cuban" sname
  328. ;"Haitian" sname "Jamaican" sname "Irish" sname "British" sname
  329. ;"Portuguese" sname "Spanish" sname "French" sname "Italian" sname
  330. ;"Albanian" sname "Greek" sname "Turk" sname "Bulgarian" sname
  331. ;"Cypriot" sname "Maltese" sname "Icelander" sname
  332. ;"Rumanian" sname "Soviet" sname "Finnish" sname "Swedish" sname
  333. ;"Polish" sname "Czech" sname "Hungarian" sname "Austrian" sname
  334. ;"German" sname "Swiss" sname "Belgian" sname "Dutch" sname
  335. ;"Danish" sname "Norwegian" sname "Moroccan" sname "Mauritanian" sname
  336. ;"Senegalese" sname "Guinean" sname "Liberian" sname "Ghanan" sname
  337. ;"Nigerian" sname "Cameroon" sname "Gabonese" sname "Zairean" sname
  338. ;"Angolan" sname "Namibian" sname "South African" sname "Botswanan" sname
  339. ;"Mozambiquan" sname "Zimbabwean" sname "Zambian" sname "Tanzanian" sname
  340. ;"Rwandan" sname "Djiboutian" sname "Madagascaran" sname
  341. ;"Kenyan" sname "Ugandan" sname "Somalian" sname "Ethiopian" sname
  342. ;"Sudanese" sname "Egyptian" sname "Libyan" sname "Tunisian" sname
  343. ;"Algerian" sname "Syrian" sname "Lebanese" sname "Israeli" sname
  344. ;"Jordanian" sname "Saudi" sname "Yemeni" sname "Omani" sname
  345. ;"Kuwaiti" sname "Iraqi" sname "Iranian" sname "Afghan" sname
  346. ;"Pakistani" sname "Indian" sname "Nepalese" sname "Burmese" sname
  347. ;"Vietnamese" sname "Kampuchean" sname "Laotian" sname
  348. ;"Siamese" sname "Malaysian" sname "Indonesian" sname "Australian" sname
  349. ;"Micronesian" sname "Fijian" sname "Tongan" sname "Samoan" sname
  350. ;"Tahitian" sname "New Zealander" sname
  351. ;"Papuan" sname "Polynesian" sname "Filipino" sname "Japanese" sname
  352. ;"Korean" sname "Chinese" sname "Mongolian" sname "Tibetan" sname
  353.  
  354. ;; The following names are derived from the Rand-McNally International Atlas
  355. ;; and from their US road atlas.  Although nominally these could end up on
  356. ;; any sort of unit, they are likely to be attached to city-like units only.
  357.  
  358. ;clear-unit-names
  359.  
  360. ;; Soviet Union  
  361. ;"Uglegorsk" uname "Taganrog" uname "Kuzemino" uname "Igodovo" uname 
  362. ;"Izhevsk" uname "Leninskoye" uname "Zvenigorod" uname "Faustovo" uname 
  363. ;"Tokma" uname "Bolotnoje" uname "Pudino" uname "Predivinsk" uname 
  364. ;"Gotoputovo" uname "Stupino" uname 
  365. ;; Japan  
  366. ;"Toyooka" uname "Kobayashi" uname "Kamiyahagi" uname "Fukude" uname 
  367. ;; China  
  368. ;"Dandong" uname "Xingtai" uname "Xiaojiagang" uname "Wushu" uname 
  369. ;"Wutangjie" uname "Qingfeng" uname "Dushikou" uname "Huilong" uname 
  370. ;"Linyi" uname "Miaoyang" uname "Xinbo" uname "Bugt" uname 
  371. ;; Indochina  
  372. ;"Tan-an" uname "Ban Khlong Kua" uname "Bo Phloi" uname "Thot-not" uname
  373. ;"Herbertabad" uname "Mong Pawn" uname "Roi Et" uname
  374. ;; Indonesia  
  375. ;"Butong" uname "Lubukbertubung" uname "Moutong" uname "Gimpu" uname 
  376. ;"Waingapu" uname "Sindangbarang" uname "Kualakapuas" uname "Bongka" uname 
  377. ;"Salimbatu" uname "Bonggaw" uname "Baing" uname "Grokgak" uname 
  378. ;; India  
  379. ;"Bap" uname "Meerut" uname "Harda" uname "Garwa" uname 
  380. ;"Digboi" uname "Kurnool" uname "Nirmal" uname "Coondapoor" uname 
  381. ;"Tetulbaria" uname "Maheshwar" uname "Paramagudi" uname "Bhakkar" uname 
  382. ;"Mungaoli" uname "Shorapur" uname "Channapatna" uname "Chilaw" uname 
  383. ;; Middle East and Central Asia  
  384. ;"Bajandalaj" uname "Cogt-Ovoo" uname "Un't" uname "Ich-Uul" uname 
  385. ;"Yazd" uname "Samarkand" uname "Mashhad" uname "Chah Bahar" uname 
  386. ;"Jubbah" uname "Al-'Awsajiyah" uname "Kifri" uname "Kashgar" uname 
  387. ;"Chundzha" uname "Ushtobe" uname "Dzaamar" uname "Wadi Musa" uname 
  388. ;"Bogustan" uname "Gakuch" uname 
  389. ;; Africa  
  390. ;"Pibor Post" uname "Umm Digulgulaya" uname "Umm Shalil" uname "Buzaymah" uname 
  391. ;"Gedo" uname "North Horr" uname "Todenyang" uname "Madadi" uname 
  392. ;"Ngetera" uname "Ouadda" uname "Mazoula" uname "Tiglit" uname 
  393. ;"Gummi" uname "Gbarnga" uname "Burutu" uname "Bafwabalinga" uname 
  394. ;"Goonda" uname "Ankoroka" uname "Vryburg" uname "Matuba" uname 
  395. ;"Bakouma" uname "El Idrissia" uname "Agadir" uname "Nungwe" uname 
  396. ;"Bunianga" uname "Ngali" uname "Nguiroungou" uname "Otukpa" uname 
  397. ;"Hell-Ville" uname "Morafenobe" uname "Tongobory" uname "Farafangana" uname 
  398. ;"Mungbere" uname "Haco" uname "Barbar" uname "Oulessebougou" uname
  399. ;; Australia  
  400. ;"Nookawarra" uname "Bunbury" uname "Buckleboo" uname "Breeza Plains" uname 
  401. ;"Mistake Creek" uname "Boolaloo" uname "Yarloop" uname "Dubbo" uname 
  402. ;"Bushy Park" uname "Old Cork" uname "Cessnock" uname "Wagga Wagga" uname 
  403. ;"Mungar Junction" uname "Koolywirtie" uname "Wonthaggi" uname
  404. ;"Oatlands" uname "Bindebango" uname "Alice Springs" uname
  405. ;; New Guinea  
  406. ;"Kwatisore" uname "Finschhafen" uname "Yobi" uname "Rumahtinggih" uname 
  407. ;; USA  
  408. ;; AL  
  409. ;"New Hope" uname "Hackleburg" uname 
  410. ;; AK  
  411. ;"Kaktovik" uname "Fort Yukon" uname 
  412. ;; AZ  
  413. ;"Benson" uname "Gila Bend" uname "Turkey Flat" uname "Tuba City" uname  
  414. ;"Wide Ruins" uname 
  415. ;; AR  
  416. ;"Metalton" uname "Oil Trough" uname "Hackett" uname
  417. ;; CA  
  418. ;"Burnt Ranch" uname "Calexico" uname "Eel Rock" uname "Gilroy" uname 
  419. ;"Joshua Tree" uname "Milpitas" uname "Mormon Bar" uname "Pumpkin Center" uname 
  420. ;"Death Valley Junction" uname "Toms Place" uname
  421. ;"Pinole" uname "Petaluma" uname 
  422. ;"Scotts Valley" uname "Whiskeytown" uname "Leucadia" uname "Lompoc" uname
  423. ;"Granada Hills" uname
  424. ;; CO  
  425. ;"Las Animas" uname "Silver Plume" uname 
  426. ;; CT  
  427. ;"Upper Stepney" uname "Moosup" uname "Danbury" uname
  428. ;; FL  
  429. ;"Yeehaw Junction" uname "Big Pine Key" uname 
  430. ;"Panacea" uname "Wewahitchka" uname "Estiffanulga" uname 
  431. ;; GA  
  432. ;"Dixie Unameion" uname "Fowlstown" uname "Dacula" uname "Americus" uname 
  433. ;; HW  
  434. ;"Laupahoehoe" uname 
  435. ;; ID  
  436. ;"Malad City" uname "Kootenai" uname 
  437. ;; IL  
  438. ;"Farmer City" uname "Aroma Park" uname "Goreville" uname "Illiopolis" uname  
  439. ;"Mascoutah" uname "Metamora" uname "Metropolis" uname "New Boston" uname  
  440. ;"Pontoon Beach" uname "Romeoville" uname "Teutopolis" uname  
  441. ;; IN  
  442. ;"Etan Green" uname "French Lick" uname "Loogootee" uname "Needmore" uname  
  443. ;"Ogden Dunes" uname "Oolitic" uname "Star City" uname  
  444. ;; IA  
  445. ;"Coon Rapids" uname "Correctionville" uname "Grundy Center" uname
  446. ;"Lost Nation" uname "Ossian" uname "Sac City" uname  
  447. ;; KA  
  448. ;"Countryside" uname "Mankato" uname "Pretty Prairie" uname  "Greeley" uname
  449. ;"Grouse Creek" uname
  450. ;; KY  
  451. ;"Big Clifty" uname "Cloverport" uname "Druid Hills" uname "Fancy Farm" uname 
  452. ;"Hardburly" uname "Hardshell" uname "Horse Cave" uname "Pleasureville" uname 
  453. ;"Science Hill" uname "Sublimity City" uname "Watergap" uname 
  454. ;; LA  
  455. ;"Bayou Goula" uname "Cut Off" uname "Hackberry" uname "Lutcher" uname 
  456. ;"Waggaman" uname 
  457. ;; ME  
  458. ;"Veazie" uname "Madawaska" uname 
  459. ;; MD  
  460. ;"Bestgate" uname "College Park" uname "Frostburg" uname "Pocomoke City" uname 
  461. ;"Port Deposit" uname "Pumphrey" uname "Tammany Manor" uname
  462. ;"Weems Creek" uname "Whiskey Bottom" uname "Hack Point" uname
  463. ;; MA  
  464. ;"Assinippi" uname "Buzzards Bay" uname "Dorothy Pond" uname "Hopkinton" uname 
  465. ;"Housatonic" uname "Pigeon Cove" uname "Swampscott" uname "Gloucester" uname
  466. ;"Hyannis Port" uname "Ipswich" uname "Boxford" uname
  467. ;; MI  
  468. ;"Bad Axe" uname "Brown City" uname "Cassopolis" uname "New Buffalo" uname 
  469. ;"Petoskey" uname "Ishpeming" uname "Ypsilanti" uname "Saugatuck" uname 
  470. ;; Michigan UP (from Sandra Loosemore)  
  471. ;"Skanee" uname "Bruce Crossing" uname "Baraga" uname "Germfask" uname 
  472. ;"Assinins" uname "Tapiola" uname "Gaastra" uname "Bete Grise" uname 
  473. ;; MN  
  474. ;"Ada" uname "Blue Earth" uname "Brainerd" uname "Eden Valley" uname  
  475. ;"Lino Lakes" uname "New Prague" uname "Sleepy Eye" uname "Waconia" uname  
  476. ;; MS  
  477. ;"Bogue Chitto" uname "Buckatunna" uname "Guntown" uname "Picayune" uname 
  478. ;"Red Lick" uname "Senatobia" uname "Tie Plant" uname "Yazoo City" uname  
  479. ;; MO  
  480. ;"Bourbon" uname "Doe Run" uname "Hayti" uname "Humansville" uname 
  481. ;"Lutesville" uname "Moberly" uname "New Madrid" uname "Peculiar" uname 
  482. ;"Sappington" uname "Vandalia" uname  
  483. ;; MT  
  484. ;"Big Sandy" uname "Hungry Horse" uname 
  485. ;"Kalispell" uname  "East Missoula" uname
  486. ;; NE
  487. ;"Hershey" uname "Loup City" uname 
  488. ;"Minatare" uname "Wahoo" uname  "Grainfield" uname
  489. ;; NV  
  490. ;"Winnemucca" uname "Tonopah" uname "Jackpot" uname  
  491. ;; NH  
  492. ;"Littleton" uname "Winnisquam" uname  
  493. ;; NJ  
  494. ;"Cheesequake" uname "Freewood Acres" uname
  495. ;"Forked River" uname "Hoboken" uname "Succasunna" uname  
  496. ;"Maple Shade" uname "New Egypt" uname "Parsippany" uname "Ship Bottom" uname  
  497. ;; NM  
  498. ;"Adobe Acres" uname "Cloudcroft" uname "Ruidoso" uname "Toadlena" uname  
  499. ;"Los Padillos" uname "Ojo Caliente" uname 
  500. ;; NY  
  501. ;"Angola on the Lake" uname "Podunk" uname "Chili Center" uname
  502. ;"Aquebogue" uname "Muttontown" uname "Hicksville" uname 
  503. ;"Hoosick Falls" uname "Nyack" uname
  504. ;"Painted Post" uname "Peekskill" uname "Portville" uname  
  505. ;"Ronkonkoma" uname "Wappingers Falls" uname 
  506. ;"Sparrow Bush" uname "Swan Lake" uname
  507. ;; NC  
  508. ;"Altamahaw" uname
  509. ;"Biltmore Forest" uname "Boger City" uname "Granite Quarry" uname  
  510. ;"High Shoals" uname "Lake Toxaway" uname
  511. ;"Scotland Neck" uname "Hiddenite" uname 
  512. ;"Mocksville" uname "Yadkinville" uname "Nags Head" uname 
  513. ;"Kill Devil Hills" uname "Rural Hall" uname  
  514. ;; ND  
  515. ;"Cannon Ball" uname "Hoople" uname "Zap" uname  
  516. ;; OH  
  517. ;"Academia" uname "Arcanum" uname "Blacklick Estates" uname "Blue Ball" uname  
  518. ;"Crooksville" uname "Dry Run" uname "Flushing" uname "Gratis" uname  
  519. ;"Lithopolis" uname "Mingo Junction" uname "Newton Falls" uname
  520. ;"New Straitsville" uname "Painesville" uname "Pepper Pike" uname 
  521. ;"Possum Woods" uname "Sahara Sands" uname  
  522. ;; OK  
  523. ;"Bowlegs" uname "Broken Arrow" uname "Fort Supply" uname "Drumright" uname 
  524. ;"Dill City" uname "Okay" uname "Hooker" uname  
  525. ;; OR  
  526. ;"Condon" uname "Happy Valley" uname "Drain" uname "Junction City" uname 
  527. ;"Molalla" uname "Philomath" uname "Tillamook" uname "Wankers Corner" uname
  528. ;; PA  
  529. ;"Atlasburg" uname "Beaver Meadows" uname "Birdsboro" uname "Daisytown" uname 
  530. ;"Fairless Hills" uname "Fairchance" uname "Kutztown" uname "Erdenheim" uname 
  531. ;"Hyndman" uname "Pringle" uname "Scalp Level" uname "Slickville" uname 
  532. ;"Zelienople" uname "Sugar Notch" uname "Toughkenamon" uname "Throop" uname 
  533. ;"Tire Hill" uname "Wormleysburg" uname "Oleopolis" uname
  534. ;; RI  
  535. ;"Woonsocket" uname "Pawtucket" uname
  536. ;; SC  
  537. ;"Due West" uname "Ninety Six" uname 
  538. ;"Travelers Rest" uname "Ware Shoals" uname  
  539. ;; SD  
  540. ;"Deadwood" uname "Lower Brule" uname 
  541. ;"New Underwood" uname "Pickstown" uname 
  542. ;"Plankinton" uname "Tea" uname "Yankton" uname  
  543. ;; TN  
  544. ;"Berry's Chapel" uname "Bulls Gap" uname "Cornersville" uname "Counce" uname 
  545. ;"Gilt Edge" uname "Grimsley" uname "Malesus" uname "Soddy-Daisy" uname  
  546. ;; TX  
  547. ;"Bastrop" uname "New Braunfels" uname "Harlingen" uname "Dimock" uname 
  548. ;"Devils Elbow" uname "North Zulch" uname "Llano" uname "Fort Recovery" uname 
  549. ;"Arp" uname "Bovina" uname "Cut and Shoot" uname "College Station" uname 
  550. ;"Grurer" uname "Iraan" uname "Leming" uname "Harlingen" uname 
  551. ;"Muleshoe" uname "Munday" uname "Kermit" uname "La Grange" uname 
  552. ;"Ropesville" uname "Wink" uname "Yoakum" uname "Sourlake" uname  
  553. ;; UT  
  554. ;"Delta" uname "Moab" uname "Nephi" uname "Loa" uname 
  555. ;"Moroni" uname "Orem" uname "Tooele" uname "Sigurd" uname 
  556. ;; VT  
  557. ;"Bellows Falls" uname "Chester Depot" uname "Winooski" uname  
  558. ;; VA  
  559. ;"Accotink" uname "Ben Hur" uname "Ferry Farms" uname "Disputanta" uname 
  560. ;"Dooms" uname "Sleepy Hollow" uname "Max Meadows" uname "Goochland" uname 
  561. ;"Rural Retreat" uname "Sandston" uname "Stanleytown" uname
  562. ;"Willis Wharf" uname "Stuarts Draft" uname 
  563. ;; WA  
  564. ;"Black Diamond" uname "Carnation" uname "Cle Elum" uname "Cosmopolis" uname 
  565. ;"Darrington" uname "Enumclaw" uname "Forks" uname "Goose Prairie" uname 
  566. ;"Navy Yard City" uname "La Push" uname "Soap Lake" uname "Walla Walla" uname 
  567. ;"Sedro Woolley" uname "Pe Ell" uname "Ruston" uname  
  568. ;; WV  
  569. ;"Barrackville" uname "Pocatalico" uname "Fort Gay" uname "Big Chimney" uname 
  570. ;"Nutter Fort" uname "Hometown" uname "Nitro" uname "Triadelphia" uname 
  571. ;"Star City" uname  
  572. ;; WI  
  573. ;"Combined Lock" uname "Coon Valley" uname "Black Earth" uname
  574. ;"New Holstein" uname "Little Chute" uname "Wisconsin Dells" uname
  575. ;"Random Lake" uname "Sheboygan" uname "Nauwatosa" uname  
  576. ;; WY  
  577. ;"East Thermopolis" uname "Fort Washakie" uname "Paradise Valley" uname 
  578. ;; Canada  
  579. ;"Sexsmith" uname "Squamish" uname "Fort Qu'Appelle" uname "Flin Flon" uname 
  580. ;"Moose Jaw" uname "Grand-Mere" uname "Great Village" uname "Pugwash" uname 
  581. ;"Chiliwack" uname "Cranbery Portage" uname  
  582. ;"Moosonee" uname "Joe Batt's Arm" uname "St.-Polycarpe" uname
  583. ;"Crabtree Mills" uname "Copper Cliff" uname "Uxbridge" uname 
  584. ;"Penetanguishene" uname "Boger City" uname "Drumheller" uname 
  585. ;"Port Blandford" uname "Hamtramck" uname
  586. ;; USA?
  587. ;"Hackensack" uname "North Middleboro" uname "Fannettsburg" uname 
  588. ;"Corkscrew" uname "Boynton Beach" uname 
  589. ;"Belchertown" uname
  590. ;; South America  
  591. ;"Huatabampo" uname "Zapotiltic" uname "Ipiranga" uname "Perseverancia" uname 
  592. ;"Bilwaskarma" uname "Aguadulce" uname
  593. ;"Albert Town" uname "Fuente de Oro" uname 
  594. ;"Pedras de Fogo" uname "Maxaranguape" uname "Comodoro Rivadavia" uname
  595. ;"Coribe" uname "Rossell y Rius" uname "General Alvear" uname
  596. ;"Ushaia" uname "Los Antiguos" uname "Puerto Alegre" uname "Quevedo" uname 
  597. ;; Eastern Europe  
  598. ;"Kannonkoski" uname "Uusikaupunki" uname "Ulfborg" uname "Wloszczowa" uname 
  599. ;"Drohiczyn" uname "Vrchlabi" uname "Oroshaza" uname "Klagenfurt" uname 
  600. ;"Pisz" uname "Krokowa" uname "Partizanske" uname "Ozd" uname 
  601. ;"Jimbolia" uname "Peshkopi" uname "Galaxidhion" uname "Naxos" uname 
  602. ;; Iceland
  603. ;"Thingvellir" uname "Honningsvag" uname "Vikna" uname "Jokkmokk" uname
  604. ;; Scandinavia
  605. ;"Rimbo" uname "Kukkola" uname "Viitasaari" uname
  606. ;"Guderup" uname "Grindsted" uname "Store Andst" uname "Odder" uname 
  607. ;"Vrigstad" uname "Trollhaetten" uname "Kinsarvik" uname "Grimstad" uname 
  608. ;; Ireland
  609. ;"Ballybunion" uname "Banagher" uname "Carncastle" uname
  610. ;; Belgium
  611. ;"Lisp" uname "Knokke" uname "Bialy" uname "Bor" uname
  612. ;"Hel" uname "Puck" uname
  613. ;; Germany
  614. ;"Diepholz" uname "Sangerhausen" uname "Biedenkopf" uname 
  615. ;"Mosbach" uname "Butzbach" uname "Goslar" uname "Studenka" uname
  616. ;"Slavonice" uname "Gouda" uname "Dokkum" uname "Oss" uname
  617. ;"Bad Bramstedt" uname "Dinkelsbuehl" uname "Hoogezand" uname 
  618. ;"Schoensee" uname "Fuerstenfeldbruck" uname 
  619. ;"Pfaffenhausen" uname "Namlos" uname "Bad Hall" uname
  620. ;"Consdorf" uname "Cloppenburg" uname "Bad Muskau" uname "Exing" uname
  621. ;; France
  622. ;"Bois-d'Arcy" uname
  623. ;"Presles-en-Brie" uname "Silly-le-Long" uname "Saint-Witz" uname 
  624. ;"Limoux" uname "Crozon" uname "Guilvinec" uname "Poggibonsi" uname 
  625. ;"Pignans" uname "La Tour-du-Pin" uname "Roquefort" uname "Saint-Quentin" uname 
  626. ;; Italy
  627. ;"Bobbio" uname "Viareggio" uname "Siderno" uname "Cortona" uname 
  628. ;; Spain
  629. ;"Pedrogao Grande" uname "Villarcayo" uname "Alosno" uname "La Bisbal" uname 
  630. ;; UK 
  631. ;"Cold Norton" uname "Potten End" uname "Battlesbridge" uname 
  632. ;"Fawkham Green" uname "Ysbyty Ystwyth" uname "Bletchley" uname
  633. ;"Llanbrynmair" uname "St Keverne" uname "Foxholes" uname 
  634. ;"Whitby" uname "Sutton-on-Sea" uname "Tweedmouth" uname "Wrexham" uname
  635. ;"Kirkwall" uname "Blair Atholl" uname "Inchbare" uname "Blackwaterfoot" uname 
  636. ;"Ramsgate" uname "Llantwit Major" uname "Minehead" uname "Buckfastleigh" uname 
  637. ;"Pocklington" uname "Robin Hood's Bay" uname "West Kilbride" uname
  638. ;"Inchnadamph" uname "North Tolsta" uname "Oykel Bridge" uname
  639. ;"Pangbourne" uname "Moreton-in-Marsh" uname "Wye" uname "Congresbury" uname
  640.  
  641. (game-module (instructions (
  642.   )))
  643. (game-module (notes (
  644.   )))
  645. (game-module (design-notes (
  646.   )))
  647.